10 POKE 53280,0:POKE53281,0
15 IFA=0THENGOSUB41000
20 IFA=0THENA=1:PRINT"[159][204]OADING [211][193][205]...":LOAD"SAM",8,1
30 PRINT"[204]OADING [210]ECITER...[144]":POKE631,72:POKE198,1:SYS38144:]LO
40 GOTO60000
9999 END
10000 D=PEEK(186):N$="B.CALL BINGO":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END
41000 POKE53280,0:POKE53281,0:POKE53272,22:PRINT"[147]"
41002 POKE214,14:PRINT
41004 PRINTTAB(1)"[155]                                     "
41005 FORX=1TO6
41006 PRINTTAB(1)"[152]                                     "
41007 NEXT
41013 PRINTTAB(1)"[151]                                     "
41020 FORX=1TO4:READA$:POKE214,15+X:PRINT
41022 PRINTTAB(19-LEN(A$)/2)"[152]"A$
41024 NEXT
41030 T=TI+60
41031 IFT>TITHEN41031
41032 PRINT"":RETURN
41050 DATA"[195] [193] [204] [204]   [194] [201] [206] [199] [207]
41051 [131]"BY (null)ENNETH PEEKARSKY
41052 DATA"(C) 2000 BY [202] & [198] [208]UBLISHING, [201]NC.
41053 [131]"WWW.LOADSTAR.COM
60000 P$="CALL BINGO":PRINT"[147][158][204]OADING ''[195][193][204][204] [194][201][206][199][207]''..[208]LEASE WAIT"
60001 ZZ=PEEK(186):DV=ZZ
60002 POKE198,2:PRINT"[144]NEW":PRINT"LOAD"CHR$(34)P$CHR$(34)","DV
60003 PRINT"RUN":POKE631,13:POKE632,13:POKE633,13:END